﻿Imports System.Data.SqlClient

Public Class CNhanVienDTO
    Private m_iMa As Integer
    Public Property Ma() As Integer
        Get
            Return m_iMa
        End Get
        Set(ByVal value As Integer)
            m_iMa = value
        End Set
    End Property



    Private m_sHoTen As String
    Public Property HoTen() As String
        Get
            Return m_sHoTen
        End Get
        Set(ByVal value As String)
            m_sHoTen = value
        End Set
    End Property


    Private m_dtNgaySinh As DateTime
    Public Property NgaySinh() As DateTime
        Get
            Return m_dtNgaySinh
        End Get
        Set(ByVal value As DateTime)
            m_dtNgaySinh = value
        End Set
    End Property


    Private m_sDiaChi As String
    Public Property DiaChi() As String
        Get
            Return m_sDiaChi
        End Get
        Set(ByVal value As String)
            m_sDiaChi = value
        End Set
    End Property



    Private m_sDienThoai As String
    Public Property DienThoai() As String
        Get
            Return m_sDienThoai
        End Get
        Set(ByVal value As String)
            m_sDienThoai = value
        End Set
    End Property


    Private m_iMaBangCap As Integer
    Public Property MaBangCap() As Integer
        Get
            Return m_iMaBangCap
        End Get
        Set(ByVal value As Integer)
            m_iMaBangCap = value
        End Set
    End Property


    Private m_iMaChucVu As Integer
    Public Property MaChucVu() As Integer
        Get
            Return m_iMaChucVu
        End Get
        Set(ByVal value As Integer)
            m_iMaChucVu = value
        End Set
    End Property



    Private m_iMaBoPhan As Integer
    Public Property MaBoPhan() As Integer
        Get
            Return m_iMaBoPhan
        End Get
        Set(ByVal value As Integer)
            m_iMaBoPhan = value
        End Set
    End Property


    Private m_strMatKhau As String
    Public Property MatKhau() As String
        Get
            Return m_strMatKhau
        End Get
        Set(ByVal value As String)
            m_strMatKhau = value
        End Set
    End Property


    Private m_iMaQuyenHan As Integer
    Public Property MaQuyenHan() As Integer
        Get
            Return m_iMaQuyenHan
        End Get
        Set(ByVal value As Integer)
            m_iMaQuyenHan = value
        End Set
    End Property



    Public Sub New()

    End Sub


    Public Sub New(ByVal _reader As IDataReader)
        Me.m_iMa = _reader("Ma")
        Me.m_sHoTen = _reader("HoTen")
        Me.m_dtNgaySinh = _reader("NgaySinh")
        Me.m_sDiaChi = _reader("DiaChi")
        Me.m_sDienThoai = _reader("DienThoai")
        Me.m_iMaBangCap = _reader("MaBangCap")
        Me.m_iMaChucVu = _reader("MaChucVu")
        Me.m_iMaBoPhan = _reader("MaBoPhan")
        Me.m_strMatKhau = _reader("MatKhau")
        Me.m_iMaQuyenHan = _reader("MaQuyenHan")
    End Sub

End Class
